﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	新页面
'	2012.4.5

Sub main
	Dim rs1,id,body_,title,userIP
	body_ = ""
	id=getN("id",1)
	Set rs1 = hu.conn( "select top 1 class from 74hu_class where classid="&id)
	If Not rs1.eof Then
		title=nowml(rs1("class"))
		userIP=user_array(7)
		Call setVisitPage("<a href='"&http_path&"class.asp?id="&id&"&amp;[sid]'>"&getLeft(title,8)&"</a>")
		body_ = body_ & checkMsg()'信息
		body_ = body_ & classPage(id)'页面
	Else
		title = "页面出错"
		body_ = body_ & "页面不存在或已删除<br/>"
	End If
	rs1.close
	Set rs=Nothing
	hu.title = title &"-"&wapTitle
	hu.body = body_
End Sub

%>